home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / mcom103.arc / DIRCONV.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-02-25  |  2.6 KB  |  65 lines
  1. 10  CLS:KEY OFF:COLOR 11:LOCATE 5,25,0:PRINT" CONVERT PC-TALK DIRECTORY"
  2. 20  LOCATE 6,25:PRINT"  TO MULTICOM DIRECTORY"
  3. 30  COLOR 12:LOCATE 8,1:PRINT"     The output file from this program will be named  DIR1.FIL  and will be             9776 bytes in length.  Your original file will still be intact."
  4. 40  COLOR 13:LOCATE 15,5,1:LINE INPUT;"Enter the name of your PC-TALK Directory: [PC-TALK.DIR] ";Q$
  5. 45  LOCATE 15,61,1:PRINT Q$
  6. 50  IF Q$=CHR$(13) OR Q$="" THEN DFIL$="pc-talk.dir" ELSE DFIL$=Q$
  7. 60  LOCATE 17,5:LINE INPUT"What is the Entry Size of your Directory [Default = 60] ";R$
  8. 65  LOCATE 17,61,1:PRINT R$
  9. 70  IF R$=CHR$(13) OR R$="" THEN R=60 ELSE R=VAL(R$)
  10. 80  COLOR 12:LOCATE 19,25,0:PRINT"CONVERTING DIRECTORY ";DFIL$
  11. 85  IFIL$="INITIALIII"
  12. 90  '
  13. 92  '
  14. 95  ' ----------------------------------------------------------------
  15. 96  '                  get first recrod (INITIALIII
  16. 97  '
  17. 100  CLOSE:OPEN DFIL$ AS #1
  18. 110  FIELD #1,24 AS N$,36 AS R$,2 AS X$,4 AS B$,1 AS P$,1 AS D$,1 AS S$,35 AS G$
  19. 120  OPEN "dir1.fil" AS #2 LEN=47
  20. 130  FIELD #2,23 AS NN$,15 AS RR$,2 AS XX$,4 AS BB$,1 AS PP$,1 AS DD$,1 AS SS$
  21. 140  GET #1,1:LSET NN$=LEFT$(IFIL$,LEN(IFIL$)):RSET RR$="":LSET XX$=MKI$(0):RSET BB$="":LSET PP$="":LSET DD$="":LSET SS$="":PUT #2,1
  22. 144  '
  23. 145  ' ----------------------------------------------------------------
  24. 146  '                get second record (MODEM COMMAND
  25. 147  '
  26. 150  GET #1,2:MODEM$="ATDT"
  27. 160  LSET NN$="":RSET RR$=MODEM$:LSET XX$=MKI$(LEN(MODEM$)):PUT#2,2
  28. 161  ' -----------------------------------------------------------------------
  29. 162  '
  30. 163  '              get first and second long dis numbers
  31. 164  '
  32. 165  '
  33. 170  FOR I=3 TO 4:GET #1,I:IF R$="" THEN R$="               "
  34. 180  RSET RR$=RIGHT$(R$,15):LSET XX$=MKI$(LEN(RR$)):PUT #2,I:NEXT
  35. 181  '
  36. 182  ' -----------------------------------------------------------------------
  37. 183  '           write 4 dummy recrods
  38. 184  '
  39. 185  FOR I=5 TO 8:R$="---------------"
  40. 188  RSET RR$=R$:LSET XX$=MKI$(15):PUT #2,I:NEXT
  41. 190  '
  42. 0  
  43. 200  '
  44. 210  ' -----------------------------------------------------------------------
  45. 220  '          copy next 60 records from PC-TALK.DIR to DIR1.FIL
  46. 230  '
  47. 232  FIELD #1,24 AS N$,36 AS R$,2 AS X$,4 AS B$,1 AS P$,1 AS D$,1 AS S$,35 AS G$
  48. 234  FIELD #2,23 AS NN$,15 AS RR$,2 AS XX$,4 AS BB$,1 AS PP$,1 AS DD$,1 AS SS$
  49. 240  FOR I=5 TO 65
  50. 250  GET #1,I:LSET NN$=LEFT$(N$,23):LSET RR$=RIGHT$(R$,15):LSET XX$=MKI$(15):RSET BB$=B$:LSET PP$=P$:LSET DD$=D$:LSET SS$=S$:PUT #2,I+4
  51. 260  NEXT
  52. 270  '
  53. 280  ' -----------------------------------------------------------------------
  54. 290  '          fill out remaining  records
  55. 300  '
  56. 310  FOR I= 69 TO 208
  57. 320  LSET NN$="-----------------------":RSET RR$=" - --- --- ----":LSET XX$=MKI$(15):RSET BB$="1200":LSET PP$="N":LSET DD$="8":LSET SS$="1":PUT #2,I
  58. 330  NEXT
  59. 335  CLOSE
  60. 340  LOCATE 18,20,0:COLOR 13:PRINT"File Creation Complete"
  61. 350  LOCATE 20,20,0:COLOR 13:PRINT"Press <ENTER> to End"
  62. 360  Q$=INKEY$:IF Q$="" THEN 360
  63. 370  IF Q$=CHR$(13) THEN STOP
  64. 380  CLS:COLOR 15:STOP
  65.